! del esegura.txt
       sele retencao
       legal(8,6,22,78,'Exportacao de Dados Contabeis')
       mperiodo = space(7)        
       @ 10,8 say 'Periodo    :' get mperiodo pict '@!'
       read
       if empty(mperiodo)
          retu 
       endif
       sele notass
       go top
       while .not. eof()
*       if mperiodo # right(dtoc(emissao),7)
*          skip
*          loop
*       endif
        @ 11,8 say 'Nota    : ' + str(numero,6)
        mcliente = cliente
        sele clientes
        seek mcliente
        mmunicipio = left(cidade,20)
        mcnpj      = cgc
        if uf = 'DF'
           mcodigo = '9101'
        else
           mcodigo = '9102'
        endif
        @ 12,8 say 'Cliente : ' + str(mcliente,6) + ' ' + nome
        sele notass
       mregistro  = '1'
       mregistro += strzero(day(emissao),2) + strzero(month(emissao),2) + right(str(year(emissao)),2)
       mregistro += '   '
       mregistro += strzero(numero,6)
       mregistro += '000000'
       mregistro += mcodigo   
       mregistro += ' '
       mregistro += str(total,14,2)
       mregistro += str(aliqiss,5,2)
       mregistro += str(iss,14,2)
       mregistro += cancela + space(39)     
       mregistro += '     '
       mregistro += '   ' // classificador contabil
       mregistro += repli('0',42)
       mregistro += str(total,14,2)
       mregistro += str(total,14,2)
       mregistro += str(vmaterial,14,2)
       mregistro += repli('0',14)
       mregistro += repli('0',14)
       mregistro += mmunicipio
       mregistro += mcnpj 
       mregistro += str(valorret1,14,2)
       mregistro += str(valorret2,14,2)
       mregistro += 'NFS'
       mregistro += '00,00'
       mregistro += repli('0',14)
       mregistro += 'N'
       mregistro += 'D'
       mregistro += 'S'
       mregistro += str(valorret3,14,2)
       mregistro += ' ' + space(6) + space(4)
       set devi to printer
       set printer to esegura.txt additive
       @ prow()+1,0 say mregistro
       set printer to
       set devi to screen
       sele notass
       skip
      enddo
